<%
class cBench

	private inicio
	private fin
	
	public sub iniciarMedir()
		inicio = timer()
	end sub
	
	public sub finMedir()
		fin = timer()
	end sub

	public function resultado()
		resultado = (fin - inicio)*1000
	end function
	
	public function mostrar()
		dim html
		html = "<div style=""position:absolute; border: 1px solid red; padding: 10px; background:#fff; font-weight: bold; left:0; top:0;"">" & resultado() & "ms</div>"
		mostrar = html
	end function
	
end class

class cBenchTotal

	private oBench
	
	public sub class_initialize()
		set oBench = new cBench
		oBench.iniciarMedir
	end sub
	
	public sub class_terminate()
		oBench.finMedir
		response.write(oBench.mostrar())
		set oBench = nothing
	end sub

end class

%>